insert compilation end message at the bottom of the buffer

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 2ac912929d1c2901df6790730ae0303fd9264a84..b84a3e5336445c4f2f939083fa6ba4a0727c3d80 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1852,7 +1852,9 @@ Prepare every function for final compilation and drive the C back-end."
       (let ((msg "Compilation finished."))
         (setf comp-prc-pool ())
         (with-current-buffer (get-buffer-create comp-async-buffer-name)
-          (insert msg "\n"))
+          (save-excursion
+            (goto-char (point-max))
+            (insert msg "\n")))
         (message msg)))))
 \f
 ;;; Compiler entry points.